unit fprodutorbusca;

{$mode objfpc}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  StdCtrls, ExtCtrls, DBGrids, Buttons;

type

  { TFormProdutorBusca }

  TFormProdutorBusca = class(TForm)
    ButtonLocalizar: TBitBtn;
    ButtonLimpar: TBitBtn;
    ButtonSair: TBitBtn;
    ButtonBuscarMunicipio: TBitBtn;
    DBGrid1: TDBGrid;
    EditIdMunicipio: TEdit;
    EditNumeroProdutor: TEdit;
    EditNomeProdutor: TEdit;
    EditNomeMunicipio: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Panel1: TPanel;
    procedure ButtonBuscarMunicipioClick(Sender: TObject);
    procedure ButtonBuscarClick(Sender: TObject);
    procedure ButtonLimparClick(Sender: TObject);
    procedure ButtonLocalizarClick(Sender: TObject);
    procedure ButtonSairClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  FormProdutorBusca: TFormProdutorBusca;

implementation

uses
  ucondicoesconsulta, dmprincipal, dmcadastro;

{ TFormProdutorBusca }

procedure TFormProdutorBusca.ButtonBuscarClick(Sender: TObject);
var
  condicoes: TCondicoesConsulta;
begin
  condicoes := TCondicoesConsulta.Create(CON_AND);
  Condicoes.AddCampo('p.id_municipio', 'm.id_municipio');
  condicoes.Add('id_produtor', EditNumeroProdutor.Text);
  condicoes.AddText('nome_produtor', EditNomeProdutor.Text);
  condicoes.Add('m.id_municipio', EditIdMunicipio.Text);
  condicoes.AddText('m.nome_municipio', EditNomeMunicipio.Text);
  DataPrincipal.ConsultaCondicoes(DataCadastro.ZQueryProdutor,
    'produtor p, municipio m', Condicoes);
end;

procedure TFormProdutorBusca.ButtonLimparClick(Sender: TObject);
begin
  EditNomeProdutor.Clear();
  EditIdMunicipio.Clear();
  EditNomeMunicipio.Clear();
  EditNumeroProdutor.Clear();
end;

procedure TFormProdutorBusca.ButtonLocalizarClick(Sender: TObject);
var
  condicoes: TCondicoesConsulta;
begin
  condicoes := TCondicoesConsulta.Create(CON_AND);
  Condicoes.AddCampo('p.id_municipio', 'm.id_municipio');
  condicoes.Add('id_produtor', EditNumeroProdutor.Text);
  condicoes.AddText('nome_produtor', EditNomeProdutor.Text);
  condicoes.Add('m.id_municipio', EditIdMunicipio.Text);
  condicoes.AddText('m.nome_municipio', EditNomeMunicipio.Text);
  DataPrincipal.ConsultaCondicoes(DataCadastro.ZQueryProdutor,
    'produtor p, municipio m', Condicoes);
end;

procedure TFormProdutorBusca.ButtonBuscarMunicipioClick(Sender: TObject);
var
  municipio: TDadosMunicipio;
begin
  municipio := DataCadastro.MunicipioBusca();
  EditIdMunicipio.Text := IntToStr(municipio.id_municipio);
  EditNomeMunicipio.Text := municipio.nome_municipio;
end;

procedure TFormProdutorBusca.ButtonSairClick(Sender: TObject);
begin
  Close();
end;

initialization
  {$I fprodutorbusca.lrs}

end.
